home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh78a.d64 / mas 1.0 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  14KB  |  390 lines
  1. 10 REM*****************************
  2. 20 REM*       VORPROGRAMM         *
  3. 30 REM*****************************
  4. 40 :
  5. 50 IFPEEK(49153)<>26THENLOAD"MAS.MS",8,1
  6. 60 IFPEEK(34816)<>40THENLOAD"MAS.ZS",8,1
  7. 70 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR1:POKE53272,18
  8. 80 POKE648,132:POKE53280,15:POKE53281,15:SYS49152:POKE657,128
  9. 90 POKE56,132:CLR:POKE650,128:POKE808,225
  10. 100 I=1:J=1:I2=1:AS=1:SP=1:MP=1:AF=1:MZ=1:ZE=1:S2=1:Z2=1:NF=1:EF=0:VF=0:XF=0:T=0
  11. 110 L$="                     ":BU$="]^\[220][168]./()'&-+":GN=0:GP=0:NA=0:WV=0:GV=0
  12. 120 S$="----------":EV=0:NV=0:LF=0:D2=0::DN=0:L2=0:D2$="":NT=51259:SA=-4:SA$="4"
  13. 130 X$="":EX$="":CR$=CHR$(13):E$="":X2$="":SF=1:DF=0:IA=0:R2=0:X%=0:F=0:PS=0
  14. 140 GF=0:GF$(0)="[196]ISKETTENLAUFWERK":GF$(1)="[196]RUCKER":A$="":K=1
  15. 150 DIMNA$(25,3),N2$(25,3),VR$(25,3),V2$(25,3),N$(1872),P(15),SP(30,3),N(2)
  16. 160 DIMIH$(15,2),NM$(2),HM(4,1),LI$(45),DN(25,3),DP(25,3),DN$(25),DP$(25),NF(2)
  17. 170 FORI=0TO4:READHM(I,0):READHM(I,1):NEXT
  18. 180 DATA1,9,10,8,18,7,25,8,33,6
  19. 190 PRINTCHR$(14)"[147]":GOSUB450:PRINT"[146]";:FORI=1TO40:PRINT"[163]";:NEXT
  20. 200 _S0,20,"[176]";:FORI=1TO20:PRINT"[192]";:NEXT
  21. 210 PRINT"[178][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][174][221]"SPC(20)"[221]"SPC(9)"[221]       [221][173]";
  22. 220 FORI=1TO20:PRINT"[192]";:NEXT:PRINT"[177][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][189]";
  23. 230 GOSUB710:GOSUB770:GOTO1200
  24. 240 :
  25. 250 REM*****************************
  26. 260 REM*      UNTERPROGRAMME       *
  27. 270 REM*****************************
  28. 280 :
  29. 290 >>>       MENUE-WINDOWS          <<<
  30. 300 SP=1:ZE=1
  31. 310 _ISP(SP,0),SP(SP,1)+ZE-1,SP(SP,2),1,0
  32. 320 GETX$:IFX$=""THEN320
  33. 330 _OX$,"_"+CR$,X%:IFX%<>0OR(X$="[136]"ANDEF=1ORX$="[133]"ANDEF=1)THEN420
  34. 340 _OX$,"[145][157]",X%:IFX%<>0THEN360
  35. 350 GOTO320
  36. 360 Z2=ZE:S2=SP:IFX$=""THENZE=ZE+1:IFZE>SP(SP,3)THENZE=1
  37. 370 IFX$="[145]"THENZE=ZE-1:IFZE=0THENZE=SP(SP,3)
  38. 380 IFX$=""THENSP=SP+1:IFSP>ASTHENSP=1
  39. 390 IFX$="[157]"THENSP=SP-1:IFSP=0THENSP=AS
  40. 400 IFZE>SP(SP,3)THENSP=S2
  41. 410 _ISP(S2,0),SP(S2,1)+Z2-1,SP(S2,2),1,0:GOTO310
  42. 420 _ISP(SP,0),SP(SP,1)+ZE-1,SP(SP,2),1,0:EF=0:RETURN
  43. 430 :
  44. 440 >>>        MENUE-ZEILE           <<<
  45. 450 _S0,0,"  [197][201][206][199][193][194][197][160] [218][197][201][199][197][206][160][160][196][193][212][197][201][160][160][197][216][212][210][193][211]  [197][206][196][197]  ";:RETURN
  46. 460 :
  47. 470 >>>           CANCEL             <<<
  48. 480 _R:GOSUB450:GOSUB710:GOSUB770:GOTO1070
  49. 490 :
  50. 500 >>>       GERAETE-CHECK          <<<
  51. 510 X$="":POKE650,64:POKE768,61:OPEN1,8+GF*SA,15:CLOSE1
  52. 520 POKE768,139:IFST<>-128ANDDF=0THENPOKE650,128:RETURN
  53. 530 IFST<>-128THENPOKE650,128:_C:DF=0:RETURN
  54. 540 IFDF=0THEN:_W2,5,35,9,2:_S16,7,"[194]ITTE"
  55. 550 IFDF=0THEN:_S4+GF*5,9,GF$(GF)" EINSCHALTEN [220]":_S15,11,"'[212]ASTE'":DF=1
  56. 560 GOSUB630:IFX$="_"ORX$=""THENPOKE650,128:_C:DF=0:RETURN
  57. 570 GOTO510
  58. 580 :
  59. 590 >>>      DISKETTENFEHLER         <<<
  60. 600 OPEN3,8,15:INPUT#3,ER,ER$,E1,E2:CLOSE3:RETURN
  61. 610 :
  62. 620 >>>          TASTE              <<<
  63. 630 GETX$:IFX$=""THEN630
  64. 640 RETURN
  65. 650 :
  66. 660 >>>       FEHLER AUSGABE         <<<
  67. 670 _W2,6,36,7,2:_S4,8,"[196]ISKETTENFEHLER:":_S3,10,ER","ER$","E1","E2""
  68. 680 GOSUB630:_C:RETURN
  69. 690 :
  70. 700 >>>    TASTENFELD LOESCHEN       <<<
  71. 710 _I0,23,40,2,1:_I0,23,40,2,0:RETURN
  72. 720 :
  73. 730 >>>    TASTENFELD ANZEIGE 1      <<<
  74. 740 GOSUB710:_S1,23,"< _ >:[218]UR^CK":_S1,24,"<[210]/[211]>:[205]EN^":RETURN
  75. 750 :
  76. 760 >>>    TASTENFELD ANZEIGE 2      <<<
  77. 770 _S4,24,"[205][193][211] 1.0  VON [198]RANK [207]]WALD - 1989":RETURN
  78. 780 :
  79. 790 >>>        FAECHERWAHL           <<<
  80. 800 _W6,3,27,15,6:_A7,4,6,NA$(0,3),13:_A20,4,6,NA$(13,3),13
  81. 810 AS=2:SP(1,0)=7:SP(1,1)=4:SP(1,2)=12:IFAF<=13THENSP(1,3)=AF:AS=1:GOTO830
  82. 820 SP(1,3)=13:SP(2,0)=20:SP(2,1)=4:SP(2,2)=12:SP(2,3)=AF-13:AS=2
  83. 830 GOSUB300:NF=(SP-1)*13+ZE-1:PS=NF*72:RETURN
  84. 840 :
  85. 850 >>>       INHALT LADEN           <<<
  86. 860 GF=0:GOSUB510:IFX$="_"ORX$=""THENRETURN
  87. 870 X$="":OPEN2,8,2,"INHALT,S,R":CLOSE2:GOSUB600:IFER=62THENIA=0:ER=0:RETURN
  88. 880 IFER<>0THENGOSUB670:RETURN
  89. 890 OPEN2,8,2,"INHALT,S,R":INPUT#2,IA:FORI=1TOIA:FORJ=0TO2
  90. 900 INPUT#2,IH$(I,J):NEXTJ,I:CLOSE2:RETURN
  91. 910 :
  92. 920 >>>       EINEN MOMENT           <<<
  93. 930 _W10,8,20,5,0:_S12,10,"[144][197]INEN [205]OMENT ...":RETURN
  94. 940 :
  95. 950 >>>    DURCHSCHNITTSNOTE        <<<
  96. 960 GV=0:DN(NF,3)=0:DP(NF,3)=0:FORI=0TO2:NN=NF*72+I*24+1
  97. 970 IFN$(NN)=""THENNF(I)=0:WV=0:DN(NF,I)=0:DP(NF,I)=0:GOTO990
  98. 980 NF(I)=1:_DN$(NN),24,0,DP(NF,I):_DN$(NN),24,1,DN(NF,I):WV=VAL(VR$(NF,I))
  99. 990 DN(NF,3)=DN(NF,3)+WV*DN(NF,I)
  100. 1000 DP(NF,3)=DP(NF,3)+VAL(VR$(NF,I))*DP(NF,I):GV=GV+WV:NEXT:IFGV=0THENRETURN
  101. 1010 DN(NF,3)=INT((DN(NF,3)/GV)*100+.5)/100:DP(NF,3)=INT(DP(NF,3)/GV+.5):RETURN
  102. 1020 :
  103. 1030 REM****************************
  104. 1040 REM*       HAUPTMENUE         *
  105. 1050 REM****************************
  106. 1060 :
  107. 1070 MP=0
  108. 1080 _IHM(MP,0),0,HM(MP,1),1,0
  109. 1090 GOSUB630:IFX$=CR$THENMP=MP+1:GOSUB740:ONMPGOTO2610,3070,1200,3660,3850
  110. 1100 IFX$=""ORX$="[157]"THEN1120
  111. 1110 GOTO1090
  112. 1120 MZ=MP:IFX$=""THENMP=MP+1:IFMP=5THENMP=0
  113. 1130 IFX$="[157]"THENMP=MP-1:IFMP=-1THENMP=4
  114. 1140 _IHM(MZ,0),0,HM(MZ,1),1,0:GOTO1080
  115. 1150 :
  116. 1160 REM****************************
  117. 1170 REM*          DATEI           *
  118. 1180 REM****************************
  119. 1190 :
  120. 1200 GOSUB930:VF=0:LF=0:L2=0:GF=0:IFSF=1THENGOSUB710:GOSUB770
  121. 1210 IFX$<>"_"THENFORI=0TO25:FORJ=0TO3:N2$(I,J)="":V2$(I,J)="":NEXTJ,I:XF=1
  122. 1220 GOSUB860:_C:IFSF=0ANDX$<>""THEN480
  123. 1230 IFX$<>""THEN1200
  124. 1240 IFIA=0THENR2=1:IA=1:GOSUB710:GOSUB740:GOTO1500
  125. 1250 _W13,7,12,6,6:_S14,8,"[146][204]ADEN":_S14,9,"[206]EUEINGABE":_S14,10,"[214]ERBESSERN"
  126. 1260 _S14,11,"[204]\SCHEN":AS=1:SP(1,0)=14:SP(1,1)=8:SP(1,2)=10:SP(1,3)=4:GOSUB300
  127. 1270 IF(X$="_"ORX$="")ANDSF=0THEN480
  128. 1280 IFX$="_"ORX$=""OR(ZE=3ANDSF=1)THEN1260
  129. 1290 GOSUB740
  130. 1300 IFZE=1THEN2190
  131. 1310 IFZE=2ANDIA+1=16THEN1360
  132. 1320 IFZE=2THENIA=IA+1:R2=IA:GOTO1500
  133. 1330 IFZE=3THEN1410
  134. 1340 IFZE=4THENLF=1:GOTO2190
  135. 1350 :
  136. 1360 _W7,5,24,13,2:_S9,7,"[196]IESE [196]ATENDISKETTE":_S9,9,"IST [194]EREITS VOLL [220]"
  137. 1370 _S9,11,"[194]ITTE LEGEN [211]IE EINE":_S9,13,"NEUE EIN.":_S15,15,"'[212]ASTE'"
  138. 1380 GOSUB630:IF(X$="_"ORX$="")ANDSF=0THEN480
  139. 1390 _R:GOTO1200
  140. 1400 :
  141. 1410 VF=0:FORI=1TOIA:FORJ=0TO2:IFIH$(I,J)=NM$(J)THENVF=VF+1
  142. 1420 NEXTJ:IFVF=3THENR2=I:I=IA+1:NEXT:GOTO1470
  143. 1430 VF=0:NEXTI:_W3,6,33,11,2:_S5,8,"[194]ITTE LEGEN [211]IE DIEJENIGE"
  144. 1440 _S5,10,"[196]ISKETTE EIN, AUF DER SICH":_S5,12,"DIE AKTUELLE [196]ATEI BEFINDET [220]"
  145. 1450 _S14,14,"'[212]ASTE'":GOSUB630:IFX$=""THEN480
  146. 1460 _R:GOTO1200
  147. 1470 FORI=0TO25:FORJ=0TO3:V2$(I,J)=VR$(I,J):N2$(I,J)=NA$(I,J):NEXTJ,I
  148. 1480 FORI=0TO2:IH$(R2,I)=NM$(I):NEXTI:VF=1:GOTO1510
  149. 1490 :
  150. 1500 IFXF=1THENFORI=0TO2:IH$(R2,I)="":NEXT:XF=0
  151. 1510 _W3,6,33,7,6:_S4,7,"[206]AME     : "IH$(R2,0):_S4,9,"[203]LASSE   : "IH$(R2,1)
  152. 1520 _S4,11,"[211]CHULJAHR: "IH$(R2,2)
  153. 1530 F=1:EX$="_[145]"
  154. 1540 ONFGOSUB1630,1640,1650
  155. 1550 IFX$=""ANDSF=0THEN480
  156. 1560 IFX$=""ORX$="_"THEN:_R:GOTO1200
  157. 1570 IFIH$(R2,F-1)=""THEN1540
  158. 1580 IF(X$=""ORX$=CR$)ANDF<3THENF=F+1:GOTO1540
  159. 1590 IFX$=""THENF=1:GOTO1540
  160. 1600 IFX$="[145]"ANDF>1THENF=F-1:GOTO1540
  161. 1610 IFX$="[145]"THENF=3:GOTO1540
  162. 1620 GOTO1670
  163. 1630 _F15,7,20,BU$,EX$,IH$(R2,0),X$:RETURN
  164. 1640 _F15,9,9,BU$+"",EX$,IH$(R2,1),X$:RETURN
  165. 1650 _F15,11,5,"/",EX$,IH$(R2,2),X$:RETURN
  166. 1660 :
  167. 1670 _W1,4,37,14,6:_S14,23,"<F 1>:[198]ACH+ <F 5>:[204]\SCHEN"
  168. 1680 _S14,24,"<F 3>:[198]ACH- <F 7>:[198]ERTIG":I=0:EX$="_[133][134][135][136][145]"
  169. 1690 _S2,5,"[198]ACH"I+1"[157][146] ":_S3,7,"[194]EZ.: "LEFT$(L$,12):_S9,7,N2$(I,3)
  170. 1700 FORJ=0TO2:_S3,9+J*2,J+1"[157]. [194]EZ.: "LEFT$(L$,10):_S13,9+J*2,N2$(I,J)
  171. 1710 _S24,9+J*2,"[193]NTEIL:     ":_S32,9+J*2,V2$(I,J):NEXTJ
  172. 1720 _S3,15,"[199]ESAMTANTEIL:    ":_S17,15,V2$(I,3):F=1
  173. 1730 ONFGOSUB1890,1900,1910,1900,1910,1900,1910,1920
  174. 1740 IFX$=""ANDSF=0THEN480
  175. 1750 IFX$=""THEN:_R:GOTO1200
  176. 1760 IFX$="_"THEN:_C:GOSUB710:GOSUB740:GOTO1530
  177. 1770 IF(X$=CR$ORX$="")ANDF<8THENF=F+1:GOTO1730
  178. 1780 IFX$=""THENF=1:GOTO1730
  179. 1790 IFX$=CR$ANDI=25THEN1870
  180. 1800 IFX$="[145]"ANDF>1THENF=F-1:GOTO1730
  181. 1810 IFX$="[145]"THENF=8:GOTO1730
  182. 1820 IF(X$="[133]"ORX$=CR$)ANDI<25THENI=I+1:GOTO1690
  183. 1830 IFX$="[133]"THENI=0:GOTO1690
  184. 1840 IFX$="[134]"ANDI>0THENI=I-1:GOTO1690
  185. 1850 IFX$="[134]"THENI=25:GOTO1690
  186. 1860 IFX$="[135]"THENFORJ=0TO3:N2$(I,J)="":V2$(I,J)="":NEXT:GOTO1690
  187. 1870 FORJ=0TO25:IFN2$(J,3)<>""THENJ=26:NEXT:GOTO1940
  188. 1880 NEXT:GOTO1730
  189. 1890 _F9,7,12,BU$,EX$,N2$(I,3),X$:RETURN
  190. 1900 _F13,9+(F-2),10,BU$,EX$,N2$(I,F/2-1),X$:RETURN
  191. 1910 _F32,8+(F-2),3,"",EX$,V2$(I,(F-3)/2),X$:RETURN
  192. 1920 _F17,15,3,"",EX$,V2$(I,3),X$:RETURN
  193. 1930 :
  194. 1940 I2=I:GF=0:GOSUB510:IFX$=""ANDSF=0THEN480
  195. 1950 IFX$=""THEN:_R:GOTO1200
  196. 1960 IFX$="_"THENI=I2:GOTO1690
  197. 1970 _W5,7,28,9,0:_S7,9,"[144][196]IE [196]ATEI WIRD ANGELEGT."
  198. 1980 _S7,11,"[194]ITTE EINEN [205]OMENT":_S7,13,"[199]EDULD ...":DN$=STR$(R2)
  199. 1990 OPEN1,8,15,"S:INHALT":PRINT#1,"S:"+DN$+".S":CLOSE1
  200. 2000 OPEN2,8,2,"INHALT,S,W":PRINT#2,IA
  201. 2010 FORI=1TOIA:PRINT#2,IH$(I,0)CR$IH$(I,1)CR$IH$(I,2):NEXT:CLOSE2
  202. 2020 GOSUB600:IFER<>0THENGOSUB670:GOTO2000
  203. 2030 ONLFGOTO2520:AF=0:FORI=0TO25:IFN2$(I,3)=""THENNEXT:GOTO2070
  204. 2040 FORJ=0TO3:IFN2$(I,J)=""THENN2$(I,J)=" "
  205. 2050 IFV2$(I,J)=""THENV2$(I,J)=" "
  206. 2060 NA$(AF,J)=N2$(I,J):VR$(AF,J)=V2$(I,J):NEXTJ:AF=AF+1:NEXTI
  207. 2070 FORI=0TO2:NM$(I)=IH$(R2,I):NEXT
  208. 2080 OPEN2,8,2,DN$+".S,S,W":PRINT#2,AF:FORI=0TOAF-1
  209. 2090 FORJ=0TO3:PRINT#2,NA$(I,J)CR$VR$(I,J):NEXTJ,I:CLOSE2
  210. 2100 GOSUB600:IFER<>0THENGOSUB670:_R:SF=1:GOTO1200
  211. 2110 IFVF=1THEN2160
  212. 2120 FORI=0TO1872:N$(I)="":NEXT:FORI=AFTO25:NA$(I,3)="":NEXT
  213. 2130 OPEN2,8,2,DN$+".R,L,"+CHR$(5)
  214. 2140 OPEN1,8,15,"P"+CHR$(2)+CHR$(80)+CHR$(7)+CHR$(1):PRINT#2,CHR$(255):CLOSE1
  215. 2150 CLOSE2:GOSUB600:IFER<>0ANDER<>50THENGOSUB670:_R:SF=1:GOTO1200
  216. 2160 _S1,21,LEFT$(L$,20)""LEFT$(L$,9)"       "
  217. 2170 _S1,21,"[144]"NM$(0):_S22,21,NM$(1):_S33,21,NM$(2)"":SF=0:GOTO480
  218. 2180 :
  219. 2190 _W0,2,40,18,6:_S5,3,"[144][206]AME"TAB(22)"[203]LASSE    [211]CHULJ."
  220. 2200 FORJ=0TO2:FORI=1TOIA:LI$(J*IA+I)=IH$(IA-I+1,J):NEXTI,J
  221. 2210 _A1,4,6,LI$(1),IA:_A22,4,6,LI$(IA+1),IA:_A33,4,6,LI$(2*IA+1),IA
  222. 2220 AS=1:SP(1,0)=1:SP(1,1)=4:SP(1,2)=38:SP(1,3)=IA:GOSUB300
  223. 2230 IFX$=""ANDSF=0THEN480
  224. 2240 IFX$=""ORX$="_"THEN:_R:GOTO1200
  225. 2250 FORI=0TO2:IFIH$(IA-ZE+1,I)<>NM$(I)THENI=3:NEXT:GOTO2270
  226. 2260 NEXT:L2=1:SF=0:IFLF=0THEN480
  227. 2270 _ISP(SP,0),SP(SP,1)+ZE-1,SP(SP,2),1,0:GOSUB510:IFX$=""ANDSF=0THEN480
  228. 2280 IFX$=""THEN:_R:GOTO1200
  229. 2290 IFX$="_"THEN:_C:GOTO2190
  230. 2300 ONLFGOTO2390:_W11,8,18,7,0:_S13,10,"[144][196]IE [196]ATEI WIRD":_S13,12,"GELADEN ..."
  231. 2310 DN$=STR$(IA-ZE+1):OPEN2,8,2,DN$+".S,S,R":INPUT#2,AF
  232. 2320 FORI=0TOAF-1:FORJ=0TO3:INPUT#2,NA$(I,J),VR$(I,J):NEXTJ,I:CLOSE2
  233. 2330 GOSUB600:IFER<>0THENGOSUB670:_R:SF=1:GOTO1200
  234. 2340 IFAF<26THENFORI=AFTO25:FORJ=0TO3:NA$(I,J)="":VR$(I,J)="":NEXTJ,I
  235. 2350 OPEN2,8,2,DN$+".R":OPEN1,8,15,"P"+CHR$(2)+CHR$(1)+CHR$(0)+CHR$(1)
  236. 2360 FORI=1TO1872:INPUT#2,N$(I):IFN$(I)="[255]"THENN$(I)=""
  237. 2370 NEXT:CLOSE1:CLOSE2:GOSUB600:IFER<>0THENGOSUB670:_R:SF=1:GOTO1200
  238. 2380 FORI=0TO2:NM$(I)=IH$(IA-ZE+1,I):NEXT:GOTO2160
  239. 2390 _W5,7,27,9,2:_S7,9,"[211]OLL DIE ENTSPRECHENDE"
  240. 2400 _S7,11,"[196]ATEI WIRKLICH GEL\SCHT":_S7,13,"WERDEN ?  ([202]/[206])"
  241. 2410 GOSUB630:IFX$=""ANDSF=0THEN480
  242. 2420 IFX$=""THEN:_R:GOTO1200
  243. 2430 IFX$="_"ORX$="N"THEN:_C:_C:GOTO2190
  244. 2440 IFX$<>"J"THEN2410
  245. 2450 _C:_W5,7,28,9,0:_S7,9,"[144][196]IE [196]ATEI WIRD GEL\SCHT."
  246. 2460 _S7,11,"[194]ITTE EINEN [205]OMENT":_S7,13,"[199]EDULD ...":D2$=STR$(IA-ZE+1)
  247. 2470 OPEN1,8,15,"S:"+D2$+".S":PRINT#1,"S:"+D2$+".R":PRINT#1,"S:INHALT"
  248. 2480 D2=VAL(D2$):IFD2=IATHEN2510
  249. 2490 FORI=D2TOIA-1:PRINT#1,"R:"STR$(I)".S="STR$(I+1)".S"
  250. 2500 PRINT#1,"R:"STR$(I)".R="STR$(I+1)".R":FORJ=0TO2:IH$(I,J)=IH$(I+1,J):NEXTJ,I
  251. 2510 CLOSE1:IA=IA-1:GOTO2000
  252. 2520 _R:IFL2=1THENRUN
  253. 2530 IFSF=1THEN1200
  254. 2540 DN=VAL(DN$):IFD2<DNTHENDN$=STR$(DN-1)
  255. 2550 GOTO480
  256. 2560 :
  257. 2570 REM****************************
  258. 2580 REM*        EINGABE           *
  259. 2590 REM****************************
  260. 2600 :
  261. 2610 GOSUB710:GOSUB740:GOSUB800:IFX$="_"ORX$=""THEN480
  262. 2620 _W0,2,40,18,6:_S INT((39-LEN(NA$(NF,3)))/2),3,""NA$(NF,3)
  263. 2630 _S14,23,"<F 1>:[196]RUCKEN":_S14,24,"<F 7>:[198]ERTIG"
  264. 2640 _S0,4,"[171][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  265. 2650 _S1,5,NA$(NF,0)":":_S13,5,"[221]"NA$(NF,1)":":_S26,5,"[221]"NA$(NF,2)":"
  266. 2660 _S13,6,"[221]"SPC(12)"[221]":_S13,19,"[177]"SPC(12)"[177]"
  267. 2670 FORI=0TO2:_S1+I*13,6,LEFT$(S$,LEN(NA$(NF,I))+1):NEXT
  268. 2680 FORI=0TO11:_S1,7+I,"[190]    [191][190]    [191][221][190]    [191][190]    [191][221][190]    [191][190]    [191]":NEXT
  269. 2690 AS=6:SP(1,0)=1:SP(1,1)=7:SP(1,2)=6:SP(1,3)=12
  270. 2700 FORI=2TO6:SP(I,0)=SP(I-1,0)+7+(I/2=INT(I/2)):SP(I,1)=7:SP(I,2)=6:SP(I,3)=12
  271. 2710 NEXT:FORI=0TO5:_ASP(I+1,0)+1,7,6,N$(PS+I*12+1),12:NEXT:SP=1:ZE=1
  272. 2720 EF=1:GOSUB310:IFX$<>CR$THEN2810
  273. 2730 E$=N$(PS+(SP-1)*12+ZE)
  274. 2740 _FSP(SP,0)+1,6+ZE,4,"#","_[136][133]",E$,X$
  275. 2750 IFE$=""THEN2790
  276. 2760 _O"#",E$,X%:IFX%=0ANDVAL(E$)<=0ORVAL(E$)>6THEN2740
  277. 2770 IFX%=0THEN2790
  278. 2780 T=VAL(RIGHT$(E$,X%+1)):IFT<0ORT>15ORT<>INT(T)THEN2740
  279. 2790 N$(PS+(SP-1)*12+ZE)=E$:IFX$<>CR$THEN2810
  280. 2800 GOTO2720
  281. 2810 GF=0:IFX$="[133]"THENGF=1
  282. 2820 X2$=X$:GOSUB510:IFX$="_"THEN2720
  283. 2830 IFX$=""THEN2810
  284. 2840 IFGF=1THEN2950
  285. 2850 X$=X2$:GOSUB930:HB=INT((PS+1)/256):LB=(PS+1)-256*HB:OPEN2,8,2,DN$+".R"
  286. 2860 OPEN1,8,15,"P"+CHR$(2)+CHR$(LB)+CHR$(HB)+CHR$(1)
  287. 2870 FORI=1TO72:IFX$=""THENINPUT#2,N$(PS+I):IFN$(PS+I)="[255]"THENN$(PS+I)=""
  288. 2880 IFX$=""THENNEXT:GOTO2910
  289. 2890 IFN$(PS+I)<>""THENPRINT#2,N$(PS+I):NEXT:GOTO2910
  290. 2900 PRINT#2,"[255]":NEXT
  291. 2910 CLOSE1:CLOSE2:GOSUB600:IFER<>0THENGOSUB670:IFX$=""THEN480
  292. 2920 IFER<>0THEN:_C:CLOSE2:GOTO2850
  293. 2930 IFX$="_"THEN:_R:GOTO2610
  294. 2940 GOTO480
  295. 2950 OPEN4,8+SA
  296. 2960 A$=NA$(NF,3):PRINT#4,CR$;""A$"[146]";:FORI=1TO80-LEN(A$):PRINT#4,"-";:NEXT
  297. 2970 PRINT#4,CR$:FORI=0TO2:A$=NA$(NF,I):IFA$=""THENNEXTI:GOTO3010
  298. 2980 PRINT#4,""A$SPC(12-LEN(A$))":  ";:FORJ=0TO1:IFJ=1THENPRINT#4,CR$;SPC(15);
  299. 2990 FORK=1TO12:PRINT#4,N$(PS+I*24+J*12+K)" ";:NEXTK,J
  300. 3000 PRINT#4,CR$:NEXTI
  301. 3010 FORI=1TO80:PRINT#4,"-";:NEXT:PRINT#4,CR$:CLOSE4:GOTO2720
  302. 3020 :
  303. 3030 REM****************************
  304. 3040 REM*         ZEIGEN           *
  305. 3050 REM****************************
  306. 3060 :
  307. 3070 GOSUB710:GOSUB740:_W14,8,12,4,6
  308. 3080 AS=1:SP(1,0)=15:SP(1,1)=9:SP(1,2)=10:SP(1,3)=2
  309. 3090 _S15,9,"[197]INZELFACH":_S15,10,"[199]ESAMT"
  310. 3100 GOSUB300:IFX$<>CR$THEN480
  311. 3110 IFZE=2THEN3380
  312. 3120 GOSUB800:IFX$="_"THEN:_C:GOTO3080
  313. 3130 IFX$=""THEN480
  314. 3140 _S14,23,"<F 1>:[196]RUCKEN"
  315. 3150 GOSUB930:GOSUB960:_C:_C:IFGV=0THEN3250
  316. 3160 _W4,4,31,14,6
  317. 3170 _S INT((39-LEN(NA$(NF,3)))/2),5,""NA$(NF,3):_S6,8,"[197]INZELNOTEN:"
  318. 3180 FORI=0TO2:_S8,10+I,NA$(NF,I)TAB(19)":  ";:IFNF(I)=0THENNEXT:GOTO3210
  319. 3190 DN(NF,I)=INT(DN(NF,I)*100+.5)/100:DP(NF,I)=INT(DP(NF,I)+.5)
  320. 3200 PRINTSTR$(DN(NF,I))TAB(28)STR$(DP(NF,I)):_S28,10+I,"#":NEXT
  321. 3210 _S22,13,"[192][192][192][192][192][192][192][192][192][192]":_S6,15,"[199]ESAMTNOTE :"TAB(22)DN(NF,3)TAB(28)DP(NF,3)
  322. 3220 _S28,15,"#":GOSUB630:IFX$="_"THEN3270
  323. 3230 IFX$="[133]"THEN3280
  324. 3240 GOTO480
  325. 3250 _W8,6,23,9,2:_S10,8,"[218]U DIESEM [198]ACH GIBT":_S13,10,"ES NOCH KEINE"
  326. 3260 _S15,12,"[197]INGABEN !":GOSUB630:IFX$=""THEN480
  327. 3270 _C:GOSUB710:GOSUB740:GOTO3120
  328. 3280 GF=1:GOSUB510:IFX$="_"THEN3220
  329. 3290 IFX$=""THEN480
  330. 3300 OPEN4,8+SA
  331. 3310 A$=NA$(NF,3):PRINT#4,CR$;""A$"[146]";:FORI=1TO30-LEN(A$):PRINT#4,"-";:NEXT
  332. 3320 PRINT#4,CR$:FORI=0TO2:A$=NA$(NF,I):IFA$=""THENNEXTI:GOTO3340
  333. 3330 A$=NA$(NF,I):PRINT#4,""A$SPC(12-LEN(A$))": "DN(NF,I)"  #"DP(NF,I):NEXT
  334. 3340 PRINT#4,SPC(14)"[192][192][192][192][192][192][192][192][192][192][192][192][192]";CR$
  335. 3350 PRINT#4,"[199]ESAMTNOTE  : "DN(NF,3)"  #"DP(NF,3);CR$
  336. 3360 FORI=1TO30:PRINT#4,"-";:NEXT:PRINT#4,CR$:CLOSE4:GOTO3220
  337. 3370 :
  338. 3380 _S14,23,"<F 1>:[196]RUCKEN":GOSUB930
  339. 3390 GN=0:GP=0:NV=0:FORNF=0TOAF-1:GOSUB960:IFGV=0THENEV=0:GOTO3420
  340. 3400 EV=VAL(VR$(NF,3)):DN$(NF)=STR$(DN(NF,3)):DP$(NF)=STR$(DP(NF,3))
  341. 3410 DP$(NF)="#"+RIGHT$(DP$(NF),LEN(DP$(NF))-1)
  342. 3420 GN=GN+EV*DN(NF,3):GP=GP+EV*DP(NF,3):NV=NV+EV:NEXT:_C:IFNV=0THEN3510
  343. 3430 GN=INT((GN/NV)*100+.5)/100:GP=INT(GP/NV+.5):_W0,2,40,18,6
  344. 3440 FORI=0TO1:_A1+19*I,3,6,NA$(I*13,3),13:_A11+I*19,3,6,DN$(I*13),13
  345. 3450 _A17+I*19,3,6,DP$(I*13),13:NEXT
  346. 3460 _S5,17,"[199]ESAMTDURCHSCHNITT: "GN" "TAB(32)GP:_S32,17,"#"
  347. 3470 GOSUB630:IFX$="[133]"THEN3530
  348. 3480 FORI=0TO25:DN(I,3)=0:DP(I,3)=0:DN$(I)="":DP$(I)="":NEXT
  349. 3490 IFX$="_"THEN:_R:GOTO3070
  350. 3500 GOTO480
  351. 3510 _W9,6,22,9,2:_S12,8,"[197]S WURDEN BISHER":_S15,10,"NOCH KEINE"
  352. 3520 _S11,12,"[197]INGABEN GEMACHT !":GOSUB630:GOTO480
  353. 3530 GF=1:GOSUB510:IFX$="_"THEN3470
  354. 3540 IFX$=""THEN480
  355. 3550 OPEN4,8+SA:PRINT#4,CR$;""NM$(0)"   "NM$(1)"   "NM$(2)
  356. 3560 FORI=1TO40:PRINT#4,"-";:NEXT:PRINT#4,CR$
  357. 3570 FORI=0TO25:A$=NA$(I,3):IFA$=""THENNEXT:GOTO3590
  358. 3580 PRINT#4,""A$SPC(12-LEN(A$))": "DN$(I)SPC(7-LEN(DN$(I)))DP$(I):NEXT
  359. 3590 PRINT#4,CR$"[199]ESAMTDURCHSCHNITT: "GN"  #"GP;CR$
  360. 3600 FORI=1TO40:PRINT#4,"-";:NEXT:PRINT#4,CR$:CLOSE4:GOTO3470
  361. 3610 :
  362. 3620 REM****************************
  363. 3630 REM*         EXTRAS           *
  364. 3640 REM****************************
  365. 3650 :
  366. 3660 GOSUB710:GOSUB740:_W13,8,14,4,6
  367. 3670 AS=1:SP(1,0)=14:SP(1,1)=9:SP(1,2)=12:SP(1,3)=2
  368. 3680 _S14,9,"[206]OTENTABELLE":_S14,10,"[196]RUCKER"
  369. 3690 GOSUB300:IFX$<>CR$THEN480
  370. 3700 IFZE=2THEN3760
  371. 3710 _W6,2,28,18,6:_S8,3,"[208]UNKTE[190]"TAB(26)"[191][206]OTEN";
  372. 3720 FORI=0TO15:_S15,3+I,ITAB(19)"- ";
  373. 3730 FORJ=0TO3:PRINTCHR$(PEEK(NT+I*4+J));:NEXTJ,I:GOSUB630
  374. 3740 IFX$="_"THEN:_C:GOTO3690
  375. 3750 GOTO480
  376. 3760 _W8,8,24,5,6:_S10,10,"[211]EKUND@RADRESSE:":E$=SA$
  377. 3770 _F27,10,3,"","_",E$,X$:IFX$<>CR$THEN3740
  378. 3780 SA=-8+VAL(E$):IFSA<-8ORSA>247ORSA<>INT(SA)ORE$=""THEN3770
  379. 3790 SA$=E$:GOTO480
  380. 3800 :
  381. 3810 REM****************************
  382. 3820 REM*          ENDE            *
  383. 3830 REM****************************
  384. 3840 :
  385. 3850 GOSUB710:GOSUB740:_W9,6,21,9,2:_S11,8,"[211]OLL DAS [208]ROGRAMM"
  386. 3860 _S11,10,"WIRKLICH BEENDET":_S11,12,"WERDEN ?  ([202]/[206])"
  387. 3870 GOSUB630:IFX$=""ORX$="_"ORX$="N"THEN480
  388. 3880 IFX$<>"J"THEN3870
  389. 3890 SYS64738
  390.